<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">Data.Time.Format.Format.Class</span><span>
</span><span id="line-2"></span><span>    </span><span class="hs-special">(</span><span>
</span><span id="line-3"></span><span>        </span><span class="annot"><span class="hs-comment">-- * Formatting</span></span><span>
</span><span id="line-4"></span><span>        </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatTime"><span class="hs-identifier">formatTime</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-5"></span><span>        </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatNumericPadding"><span class="hs-identifier">FormatNumericPadding</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-6"></span><span>        </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatOptions"><span class="hs-identifier">FormatOptions</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-7"></span><span>        </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier">FormatTime</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-8"></span><span>        </span><span class="annot"><a href="Data.Time.Calendar.Private.html#ShowPadded"><span class="hs-identifier">ShowPadded</span></a></span><span class="hs-special">,</span><span class="annot"><a href="Data.Time.Calendar.Private.html#PadOption"><span class="hs-identifier">PadOption</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-9"></span><span>        </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatGeneral"><span class="hs-identifier">formatGeneral</span></a></span><span class="hs-special">,</span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier">formatString</span></a></span><span class="hs-special">,</span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier">formatNumber</span></a></span><span class="hs-special">,</span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier">formatNumberStd</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-10"></span><span>        </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#showPaddedFixed"><span class="hs-identifier">showPaddedFixed</span></a></span><span class="hs-special">,</span><span class="annot"><a href="Data.Time.Format.Format.Class.html#showPaddedFixedFraction"><span class="hs-identifier">showPaddedFixedFraction</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-11"></span><span>        </span><span class="annot"><a href="Data.Time.Calendar.Private.html#quotBy"><span class="hs-identifier">quotBy</span></a></span><span class="hs-special">,</span><span class="annot"><a href="Data.Time.Calendar.Private.html#remBy"><span class="hs-identifier">remBy</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-12"></span><span>    </span><span class="hs-special">)</span><span>
</span><span id="line-13"></span><span>    </span><span class="hs-keyword">where</span><span>
</span><span id="line-14"></span><span>
</span><span id="line-15"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Char.html#"><span class="hs-identifier">Data.Char</span></a></span><span>
</span><span id="line-16"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Maybe.html#"><span class="hs-identifier">Data.Maybe</span></a></span><span>
</span><span id="line-17"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#"><span class="hs-identifier">Data.Fixed</span></a></span><span>
</span><span id="line-18"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.Private.html"><span class="hs-identifier">Data.Time.Calendar.Private</span></a></span><span>
</span><span id="line-19"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html"><span class="hs-identifier">Data.Time.Format.Locale</span></a></span><span>
</span><span id="line-20"></span><span>
</span><span id="line-21"></span><span class="hs-keyword">type</span><span> </span><span id="FormatNumericPadding"><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatNumericPadding"><span class="hs-identifier hs-var">FormatNumericPadding</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span>
</span><span id="line-22"></span><span>
</span><span id="line-23"></span><span class="hs-keyword">data</span><span> </span><span id="FormatOptions"><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatOptions"><span class="hs-identifier hs-var">FormatOptions</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="MkFormatOptions"><span class="annot"><a href="Data.Time.Format.Format.Class.html#MkFormatOptions"><span class="hs-identifier hs-var">MkFormatOptions</span></a></span></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-24"></span><span>    </span><span id="foLocale"><span class="annot"><span class="annottext">FormatOptions -&gt; TimeLocale
</span><a href="Data.Time.Format.Format.Class.html#foLocale"><span class="hs-identifier hs-var hs-var">foLocale</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html#TimeLocale"><span class="hs-identifier hs-type">TimeLocale</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-25"></span><span>    </span><span id="foPadding"><span class="annot"><span class="annottext">FormatOptions -&gt; Maybe FormatNumericPadding
</span><a href="Data.Time.Format.Format.Class.html#foPadding"><span class="hs-identifier hs-var hs-var">foPadding</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatNumericPadding"><span class="hs-identifier hs-type">FormatNumericPadding</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-26"></span><span>    </span><span id="foWidth"><span class="annot"><span class="annottext">FormatOptions -&gt; Maybe Int
</span><a href="Data.Time.Format.Format.Class.html#foWidth"><span class="hs-identifier hs-var hs-var">foWidth</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-27"></span><span class="hs-special">}</span><span>
</span><span id="line-28"></span><span>
</span><span id="line-29"></span><span class="hs-comment">-- &lt;http://www.opengroup.org/onlinepubs/007908799/xsh/strftime.html&gt;</span><span>
</span><span id="line-30"></span><span class="hs-keyword">class</span><span> </span><span id="FormatTime"><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-var">FormatTime</span></a></span></span><span> </span><span id="local-6989586621679072732"><span class="annot"><a href="#local-6989586621679072732"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-31"></span><span>    </span><span class="hs-comment">-- | @since 1.9.1</span><span>
</span><span id="line-32"></span><span>    </span><span id="formatCharacter"><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-type">formatCharacter</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatOptions"><span class="hs-identifier hs-type">FormatOptions</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679072732"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-33"></span><span>
</span><span id="line-34"></span><span>
</span><span id="line-35"></span><span class="hs-comment">-- the weird UNIX logic is here</span><span>
</span><span id="line-36"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#getPadOption"><span class="hs-identifier hs-type">getPadOption</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatNumericPadding"><span class="hs-identifier hs-type">FormatNumericPadding</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.Calendar.Private.html#PadOption"><span class="hs-identifier hs-type">PadOption</span></a></span><span>
</span><span id="line-37"></span><span id="getPadOption"><span class="annot"><span class="annottext">getPadOption :: Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; Maybe FormatNumericPadding
-&gt; Maybe Int
-&gt; PadOption
</span><a href="Data.Time.Format.Format.Class.html#getPadOption"><span class="hs-identifier hs-var hs-var">getPadOption</span></a></span></span><span> </span><span id="local-6989586621679072707"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679072707"><span class="hs-identifier hs-var">trunc</span></a></span></span><span> </span><span id="local-6989586621679072706"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679072706"><span class="hs-identifier hs-var">fdef</span></a></span></span><span> </span><span id="local-6989586621679072705"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072705"><span class="hs-identifier hs-var">idef</span></a></span></span><span> </span><span id="local-6989586621679072704"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072704"><span class="hs-identifier hs-var">cdef</span></a></span></span><span> </span><span id="local-6989586621679072703"><span class="annot"><span class="annottext">Maybe FormatNumericPadding
</span><a href="#local-6989586621679072703"><span class="hs-identifier hs-var">mnpad</span></a></span></span><span> </span><span id="local-6989586621679072702"><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679072702"><span class="hs-identifier hs-var">mi</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-38"></span><span>    </span><span id="local-6989586621679072701"><span class="annot"><span class="annottext">c :: Char
</span><a href="#local-6989586621679072701"><span class="hs-identifier hs-var hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Maybe FormatNumericPadding
</span><a href="#local-6989586621679072703"><span class="hs-identifier hs-var">mnpad</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-39"></span><span>        </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679072700"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072700"><span class="hs-identifier hs-var">c'</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072700"><span class="hs-identifier hs-var">c'</span></a></span><span>
</span><span id="line-40"></span><span>        </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span class="annot"><span class="annottext">FormatNumericPadding
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">' '</span></span><span>
</span><span id="line-41"></span><span>        </span><span class="annot"><span class="annottext">Maybe FormatNumericPadding
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072704"><span class="hs-identifier hs-var">cdef</span></a></span><span>
</span><span id="line-42"></span><span>    </span><span id="local-6989586621679072697"><span class="annot"><span class="annottext">i :: Int
</span><a href="#local-6989586621679072697"><span class="hs-identifier hs-var hs-var">i</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679072702"><span class="hs-identifier hs-var">mi</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-43"></span><span>        </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679072696"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072696"><span class="hs-identifier hs-var">i'</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Maybe FormatNumericPadding
</span><a href="#local-6989586621679072703"><span class="hs-identifier hs-var">mnpad</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-44"></span><span>            </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span class="annot"><span class="annottext">FormatNumericPadding
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072696"><span class="hs-identifier hs-var">i'</span></a></span><span>
</span><span id="line-45"></span><span>            </span><span class="annot"><span class="annottext">Maybe FormatNumericPadding
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679072707"><span class="hs-identifier hs-var">trunc</span></a></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072696"><span class="hs-identifier hs-var">i'</span></a></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Ord a =&gt; a -&gt; a -&gt; a
</span><span class="hs-identifier hs-var">max</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072696"><span class="hs-identifier hs-var">i'</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072705"><span class="hs-identifier hs-var">idef</span></a></span><span>
</span><span id="line-46"></span><span>        </span><span class="annot"><span class="annottext">Maybe Int
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072705"><span class="hs-identifier hs-var">idef</span></a></span><span>
</span><span id="line-47"></span><span>    </span><span id="local-6989586621679072694"><span class="annot"><span class="annottext">f :: Bool
</span><a href="#local-6989586621679072694"><span class="hs-identifier hs-var hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679072702"><span class="hs-identifier hs-var">mi</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-48"></span><span>        </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-49"></span><span>        </span><span class="annot"><span class="annottext">Maybe Int
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Maybe FormatNumericPadding
</span><a href="#local-6989586621679072703"><span class="hs-identifier hs-var">mnpad</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-50"></span><span>            </span><span class="annot"><span class="annottext">Maybe FormatNumericPadding
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679072706"><span class="hs-identifier hs-var">fdef</span></a></span><span>
</span><span id="line-51"></span><span>            </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span class="annot"><span class="annottext">FormatNumericPadding
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-52"></span><span>            </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span>
</span><span id="line-53"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679072694"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Char -&gt; PadOption
</span><a href="Data.Time.Calendar.Private.html#Pad"><span class="hs-identifier hs-var">Pad</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072697"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072701"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="Data.Time.Calendar.Private.html#NoPad"><span class="hs-identifier hs-var">NoPad</span></a></span><span>
</span><span id="line-54"></span><span>
</span><span id="line-55"></span><span id="local-6989586621679072794"><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatGeneral"><span class="hs-identifier hs-type">formatGeneral</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.Locale.html#TimeLocale"><span class="hs-identifier hs-type">TimeLocale</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.Calendar.Private.html#PadOption"><span class="hs-identifier hs-type">PadOption</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679072794"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatOptions"><span class="hs-identifier hs-type">FormatOptions</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679072794"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span></span><span>
</span><span id="line-56"></span><span id="formatGeneral"><span class="annot"><span class="annottext">formatGeneral :: forall t.
Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; t -&gt; String)
-&gt; FormatOptions
-&gt; t
-&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatGeneral"><span class="hs-identifier hs-var hs-var">formatGeneral</span></a></span></span><span> </span><span id="local-6989586621679072691"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679072691"><span class="hs-identifier hs-var">trunc</span></a></span></span><span> </span><span id="local-6989586621679072690"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679072690"><span class="hs-identifier hs-var">fdef</span></a></span></span><span> </span><span id="local-6989586621679072689"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072689"><span class="hs-identifier hs-var">idef</span></a></span></span><span> </span><span id="local-6989586621679072688"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072688"><span class="hs-identifier hs-var">cdef</span></a></span></span><span> </span><span id="local-6989586621679072687"><span class="annot"><span class="annottext">TimeLocale -&gt; PadOption -&gt; t -&gt; String
</span><a href="#local-6989586621679072687"><span class="hs-identifier hs-var">ff</span></a></span></span><span> </span><span id="local-6989586621679072686"><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679072686"><span class="hs-identifier hs-var">fo</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; PadOption -&gt; t -&gt; String
</span><a href="#local-6989586621679072687"><span class="hs-identifier hs-var">ff</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FormatOptions -&gt; TimeLocale
</span><a href="Data.Time.Format.Format.Class.html#foLocale"><span class="hs-identifier hs-var hs-var">foLocale</span></a></span><span> </span><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679072686"><span class="hs-identifier hs-var">fo</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(PadOption -&gt; t -&gt; String) -&gt; PadOption -&gt; t -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; Maybe FormatNumericPadding
-&gt; Maybe Int
-&gt; PadOption
</span><a href="Data.Time.Format.Format.Class.html#getPadOption"><span class="hs-identifier hs-var">getPadOption</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679072691"><span class="hs-identifier hs-var">trunc</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679072690"><span class="hs-identifier hs-var">fdef</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072689"><span class="hs-identifier hs-var">idef</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072688"><span class="hs-identifier hs-var">cdef</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FormatOptions -&gt; Maybe FormatNumericPadding
</span><a href="Data.Time.Format.Format.Class.html#foPadding"><span class="hs-identifier hs-var hs-var">foPadding</span></a></span><span> </span><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679072686"><span class="hs-identifier hs-var">fo</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FormatOptions -&gt; Maybe Int
</span><a href="Data.Time.Format.Format.Class.html#foWidth"><span class="hs-identifier hs-var hs-var">foWidth</span></a></span><span> </span><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679072686"><span class="hs-identifier hs-var">fo</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-57"></span><span>
</span><span id="line-58"></span><span id="local-6989586621679072789"><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-type">formatString</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.Locale.html#TimeLocale"><span class="hs-identifier hs-type">TimeLocale</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679072789"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatOptions"><span class="hs-identifier hs-type">FormatOptions</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679072789"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span></span><span>
</span><span id="line-59"></span><span id="formatString"><span class="annot"><span class="annottext">formatString :: forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var hs-var">formatString</span></a></span></span><span> </span><span id="local-6989586621679072685"><span class="annot"><span class="annottext">TimeLocale -&gt; t -&gt; String
</span><a href="#local-6989586621679072685"><span class="hs-identifier hs-var">ff</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; t -&gt; String)
-&gt; FormatOptions
-&gt; t
-&gt; String
forall t.
Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; t -&gt; String)
-&gt; FormatOptions
-&gt; t
-&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatGeneral"><span class="hs-identifier hs-var">formatGeneral</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">' '</span></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; PadOption -&gt; t -&gt; String)
 -&gt; FormatOptions -&gt; t -&gt; String)
-&gt; (TimeLocale -&gt; PadOption -&gt; t -&gt; String)
-&gt; FormatOptions
-&gt; t
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679072684"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072684"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span id="local-6989586621679072683"><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679072683"><span class="hs-identifier hs-var">pado</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">PadOption -&gt; String -&gt; String
</span><a href="Data.Time.Calendar.Private.html#showPadded"><span class="hs-identifier hs-var">showPadded</span></a></span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679072683"><span class="hs-identifier hs-var">pado</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; String) -&gt; (t -&gt; String) -&gt; t -&gt; String
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; t -&gt; String
</span><a href="#local-6989586621679072685"><span class="hs-identifier hs-var">ff</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072684"><span class="hs-identifier hs-var">locale</span></a></span><span>
</span><span id="line-60"></span><span>
</span><span id="line-61"></span><span id="local-6989586621679072782"><span id="local-6989586621679072784"><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-type">formatNumber</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Calendar.Private.html#ShowPadded"><span class="hs-identifier hs-type">ShowPadded</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679072784"><span class="hs-identifier hs-type">i</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679072782"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679072784"><span class="hs-identifier hs-type">i</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatOptions"><span class="hs-identifier hs-type">FormatOptions</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679072782"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span></span></span><span>
</span><span id="line-62"></span><span id="formatNumber"><span class="annot"><span class="annottext">formatNumber :: forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var hs-var">formatNumber</span></a></span></span><span> </span><span id="local-6989586621679072678"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679072678"><span class="hs-identifier hs-var">fdef</span></a></span></span><span> </span><span id="local-6989586621679072677"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072677"><span class="hs-identifier hs-var">idef</span></a></span></span><span> </span><span id="local-6989586621679072676"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072676"><span class="hs-identifier hs-var">cdef</span></a></span></span><span> </span><span id="local-6989586621679072675"><span class="annot"><span class="annottext">t -&gt; i
</span><a href="#local-6989586621679072675"><span class="hs-identifier hs-var">ff</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; t -&gt; String)
-&gt; FormatOptions
-&gt; t
-&gt; String
forall t.
Bool
-&gt; Bool
-&gt; Int
-&gt; Char
-&gt; (TimeLocale -&gt; PadOption -&gt; t -&gt; String)
-&gt; FormatOptions
-&gt; t
-&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatGeneral"><span class="hs-identifier hs-var">formatGeneral</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679072678"><span class="hs-identifier hs-var">fdef</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072677"><span class="hs-identifier hs-var">idef</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072676"><span class="hs-identifier hs-var">cdef</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; PadOption -&gt; t -&gt; String)
 -&gt; FormatOptions -&gt; t -&gt; String)
-&gt; (TimeLocale -&gt; PadOption -&gt; t -&gt; String)
-&gt; FormatOptions
-&gt; t
-&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679072674"><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679072674"><span class="hs-identifier hs-var">pado</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">PadOption -&gt; i -&gt; String
forall t. ShowPadded t =&gt; PadOption -&gt; t -&gt; String
</span><a href="Data.Time.Calendar.Private.html#showPaddedNum"><span class="hs-identifier hs-var">showPaddedNum</span></a></span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679072674"><span class="hs-identifier hs-var">pado</span></a></span><span> </span><span class="annot"><span class="annottext">(i -&gt; String) -&gt; (t -&gt; i) -&gt; t -&gt; String
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">t -&gt; i
</span><a href="#local-6989586621679072675"><span class="hs-identifier hs-var">ff</span></a></span><span>
</span><span id="line-63"></span><span>
</span><span id="line-64"></span><span id="local-6989586621679072778"><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-type">formatNumberStd</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679072778"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatOptions"><span class="hs-identifier hs-type">FormatOptions</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679072778"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span></span><span>
</span><span id="line-65"></span><span id="formatNumberStd"><span class="annot"><span class="annottext">formatNumberStd :: forall t. Int -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumberStd"><span class="hs-identifier hs-var hs-var">formatNumberStd</span></a></span></span><span> </span><span id="local-6989586621679072670"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072670"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; Int -&gt; Char -&gt; (t -&gt; Integer) -&gt; FormatOptions -&gt; t -&gt; String
forall i t.
ShowPadded i =&gt;
Bool -&gt; Int -&gt; Char -&gt; (t -&gt; i) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatNumber"><span class="hs-identifier hs-var">formatNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072670"><span class="hs-identifier hs-var">n</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span>
</span><span id="line-66"></span><span>
</span><span id="line-67"></span><span id="local-6989586621679072776"><span class="annot"><a href="Data.Time.Format.Format.Class.html#showPaddedFixed"><span class="hs-identifier hs-type">showPaddedFixed</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#HasResolution"><span class="hs-identifier hs-type">HasResolution</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679072776"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="Data.Time.Calendar.Private.html#PadOption"><span class="hs-identifier hs-type">PadOption</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.Calendar.Private.html#PadOption"><span class="hs-identifier hs-type">PadOption</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#Fixed"><span class="hs-identifier hs-type">Fixed</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679072776"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span></span><span>
</span><span id="line-68"></span><span id="showPaddedFixed"><span class="annot"><span class="annottext">showPaddedFixed :: forall a.
HasResolution a =&gt;
PadOption -&gt; PadOption -&gt; Fixed a -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#showPaddedFixed"><span class="hs-identifier hs-var hs-var">showPaddedFixed</span></a></span></span><span> </span><span id="local-6989586621679072662"><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679072662"><span class="hs-identifier hs-var">padn</span></a></span></span><span> </span><span id="local-6989586621679072661"><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679072661"><span class="hs-identifier hs-var">padf</span></a></span></span><span> </span><span id="local-6989586621679072660"><span class="annot"><span class="annottext">Fixed a
</span><a href="#local-6989586621679072660"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Fixed a
</span><a href="#local-6989586621679072660"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">Fixed a -&gt; Fixed a -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&lt;</span></span><span> </span><span class="annot"><span class="annottext">Fixed a
</span><span class="hs-number">0</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'-'</span></span><span> </span><span class="annot"><span class="annottext">Char -&gt; String -&gt; String
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span> </span><span class="annot"><span class="annottext">PadOption -&gt; PadOption -&gt; Fixed a -&gt; String
forall a.
HasResolution a =&gt;
PadOption -&gt; PadOption -&gt; Fixed a -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#showPaddedFixed"><span class="hs-identifier hs-var">showPaddedFixed</span></a></span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679072662"><span class="hs-identifier hs-var">padn</span></a></span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679072661"><span class="hs-identifier hs-var">padf</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Fixed a -&gt; Fixed a
forall a. Num a =&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#negate"><span class="hs-identifier hs-var">negate</span></a></span><span> </span><span class="annot"><span class="annottext">Fixed a
</span><a href="#local-6989586621679072660"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-69"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#showPaddedFixed"><span class="hs-identifier hs-var">showPaddedFixed</span></a></span><span> </span><span id="local-6989586621679072658"><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679072658"><span class="hs-identifier hs-var">padn</span></a></span></span><span> </span><span id="local-6989586621679072657"><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679072657"><span class="hs-identifier hs-var">padf</span></a></span></span><span> </span><span id="local-6989586621679072656"><span class="annot"><span class="annottext">Fixed a
</span><a href="#local-6989586621679072656"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-70"></span><span>    </span><span id="local-6989586621679072649"><span class="annot"><span class="annottext">ns :: String
</span><a href="#local-6989586621679072649"><span class="hs-identifier hs-var hs-var">ns</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PadOption -&gt; Integer -&gt; String
forall t. ShowPadded t =&gt; PadOption -&gt; t -&gt; String
</span><a href="Data.Time.Calendar.Private.html#showPaddedNum"><span class="hs-identifier hs-var">showPaddedNum</span></a></span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679072658"><span class="hs-identifier hs-var">padn</span></a></span><span> </span><span class="annot"><span class="annottext">(Integer -&gt; String) -&gt; Integer -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Fixed a -&gt; Integer
forall a b. (RealFrac a, Integral b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#floor"><span class="hs-identifier hs-var">floor</span></a></span><span> </span><span class="annot"><span class="annottext">Fixed a
</span><a href="#local-6989586621679072656"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span class="hs-special">)</span><span>
</span><span id="line-71"></span><span>    </span><span id="local-6989586621679072646"><span class="annot"><span class="annottext">fs :: String
</span><a href="#local-6989586621679072646"><span class="hs-identifier hs-var hs-var">fs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PadOption -&gt; Fixed a -&gt; String
forall a. HasResolution a =&gt; PadOption -&gt; Fixed a -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#showPaddedFixedFraction"><span class="hs-identifier hs-var">showPaddedFixedFraction</span></a></span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679072657"><span class="hs-identifier hs-var">padf</span></a></span><span> </span><span class="annot"><span class="annottext">Fixed a
</span><a href="#local-6989586621679072656"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-72"></span><span>    </span><span id="local-6989586621679072643"><span class="annot"><span class="annottext">ds :: String
</span><a href="#local-6989586621679072643"><span class="hs-identifier hs-var hs-var">ds</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">String -&gt; Bool
forall (t :: * -&gt; *) a. Foldable t =&gt; t a -&gt; Bool
</span><a href="../../base/src/Data.Foldable.html#null"><span class="hs-identifier hs-var">null</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072646"><span class="hs-identifier hs-var">fs</span></a></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;&quot;</span></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;.&quot;</span></span><span>
</span><span id="line-73"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072649"><span class="hs-identifier hs-var">ns</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072643"><span class="hs-identifier hs-var">ds</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072646"><span class="hs-identifier hs-var">fs</span></a></span><span>
</span><span id="line-74"></span><span>
</span><span id="line-75"></span><span id="local-6989586621679072762"><span class="annot"><a href="Data.Time.Format.Format.Class.html#showPaddedFixedFraction"><span class="hs-identifier hs-type">showPaddedFixedFraction</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#HasResolution"><span class="hs-identifier hs-type">HasResolution</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679072762"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="Data.Time.Calendar.Private.html#PadOption"><span class="hs-identifier hs-type">PadOption</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#Fixed"><span class="hs-identifier hs-type">Fixed</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679072762"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span></span><span>
</span><span id="line-76"></span><span id="showPaddedFixedFraction"><span class="annot"><span class="annottext">showPaddedFixedFraction :: forall a. HasResolution a =&gt; PadOption -&gt; Fixed a -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#showPaddedFixedFraction"><span class="hs-identifier hs-var hs-var">showPaddedFixedFraction</span></a></span></span><span> </span><span id="local-6989586621679072638"><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679072638"><span class="hs-identifier hs-var">pado</span></a></span></span><span> </span><span id="local-6989586621679072637"><span class="annot"><span class="annottext">Fixed a
</span><a href="#local-6989586621679072637"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-77"></span><span>    </span><span id="local-6989586621679072632"><span class="annot"><span class="annottext">digits :: String
</span><a href="#local-6989586621679072632"><span class="hs-identifier hs-var hs-var">digits</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; String -&gt; String
forall a. (a -&gt; Bool) -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.List.html#dropWhile"><span class="hs-identifier hs-var">dropWhile</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'.'</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(String -&gt; String) -&gt; String -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; String -&gt; String
forall a. (a -&gt; Bool) -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.List.html#dropWhile"><span class="hs-identifier hs-var">dropWhile</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">/=</span></span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'.'</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(String -&gt; String) -&gt; String -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Fixed a -&gt; String
forall {k} (a :: k). HasResolution a =&gt; Bool -&gt; Fixed a -&gt; String
</span><a href="../../base/src/Data.Fixed.html#showFixed"><span class="hs-identifier hs-var">showFixed</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">Fixed a
</span><a href="#local-6989586621679072637"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-78"></span><span>    </span><span id="local-6989586621679072627"><span class="annot"><span class="annottext">n :: Int
</span><a href="#local-6989586621679072627"><span class="hs-identifier hs-var hs-var">n</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Int
forall (t :: * -&gt; *) a. Foldable t =&gt; t a -&gt; Int
</span><a href="../../base/src/Data.Foldable.html#length"><span class="hs-identifier hs-var">length</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072632"><span class="hs-identifier hs-var">digits</span></a></span><span>
</span><span id="line-79"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">PadOption
</span><a href="#local-6989586621679072638"><span class="hs-identifier hs-var">pado</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-80"></span><span>        </span><span class="annot"><span class="annottext">PadOption
</span><a href="Data.Time.Calendar.Private.html#NoPad"><span class="hs-identifier hs-var">NoPad</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072632"><span class="hs-identifier hs-var">digits</span></a></span><span>
</span><span id="line-81"></span><span>        </span><span class="annot"><a href="Data.Time.Calendar.Private.html#Pad"><span class="hs-identifier hs-type">Pad</span></a></span><span> </span><span id="local-6989586621679072625"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072625"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span id="local-6989586621679072624"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072624"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072625"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&lt;</span></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072627"><span class="hs-identifier hs-var">n</span></a></span><span>
</span><span id="line-82"></span><span>            </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">Int -&gt; String -&gt; String
forall a. Int -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.List.html#take"><span class="hs-identifier hs-var">take</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072625"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072632"><span class="hs-identifier hs-var">digits</span></a></span><span>
</span><span id="line-83"></span><span>            </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072632"><span class="hs-identifier hs-var">digits</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Char -&gt; String
forall a. Int -&gt; a -&gt; [a]
</span><a href="../../base/src/GHC.List.html#replicate"><span class="hs-identifier hs-var">replicate</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072625"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#-"><span class="hs-glyph hs-var">-</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072627"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072624"><span class="hs-identifier hs-var">c</span></a></span><span>
</span><span id="line-84"></span><span>
</span><span id="line-85"></span><span>
</span><span id="line-86"></span><span class="hs-comment">-- | Substitute various time-related information for each %-code in the string, as per 'formatCharacter'.</span><span>
</span><span id="line-87"></span><span class="hs-comment">--</span><span>
</span><span id="line-88"></span><span class="hs-comment">-- The general form is @%\&lt;modifier\&gt;\&lt;width\&gt;\&lt;alternate\&gt;\&lt;specifier\&gt;@, where @\&lt;modifier\&gt;@, @\&lt;width\&gt;@, and @\&lt;alternate\&gt;@ are optional.</span><span>
</span><span id="line-89"></span><span class="hs-comment">--</span><span>
</span><span id="line-90"></span><span class="hs-comment">-- == @\&lt;modifier\&gt;@</span><span>
</span><span id="line-91"></span><span class="hs-comment">-- glibc-style modifiers can be used before the specifier (here marked as @z@):</span><span>
</span><span id="line-92"></span><span class="hs-comment">--</span><span>
</span><span id="line-93"></span><span class="hs-comment">-- [@%-z@] no padding</span><span>
</span><span id="line-94"></span><span class="hs-comment">--</span><span>
</span><span id="line-95"></span><span class="hs-comment">-- [@%_z@] pad with spaces</span><span>
</span><span id="line-96"></span><span class="hs-comment">--</span><span>
</span><span id="line-97"></span><span class="hs-comment">-- [@%0z@] pad with zeros</span><span>
</span><span id="line-98"></span><span class="hs-comment">--</span><span>
</span><span id="line-99"></span><span class="hs-comment">-- [@%^z@] convert to upper case</span><span>
</span><span id="line-100"></span><span class="hs-comment">--</span><span>
</span><span id="line-101"></span><span class="hs-comment">-- [@%#z@] convert to lower case (consistently, unlike glibc)</span><span>
</span><span id="line-102"></span><span class="hs-comment">--</span><span>
</span><span id="line-103"></span><span class="hs-comment">-- == @\&lt;width\&gt;@</span><span>
</span><span id="line-104"></span><span class="hs-comment">-- Width digits can also be used after any modifiers and before the specifier (here marked as @z@), for example:</span><span>
</span><span id="line-105"></span><span class="hs-comment">--</span><span>
</span><span id="line-106"></span><span class="hs-comment">-- [@%4z@] pad to 4 characters (with default padding character)</span><span>
</span><span id="line-107"></span><span class="hs-comment">--</span><span>
</span><span id="line-108"></span><span class="hs-comment">-- [@%_12z@] pad with spaces to 12 characters</span><span>
</span><span id="line-109"></span><span class="hs-comment">--</span><span>
</span><span id="line-110"></span><span class="hs-comment">-- == @\&lt;alternate\&gt;@</span><span>
</span><span id="line-111"></span><span class="hs-comment">-- An optional @E@ character indicates an alternate formatting. Currently this only affects @%Z@ and @%z@.</span><span>
</span><span id="line-112"></span><span class="hs-comment">--</span><span>
</span><span id="line-113"></span><span class="hs-comment">-- [@%Ez@] alternate formatting</span><span>
</span><span id="line-114"></span><span class="hs-comment">--</span><span>
</span><span id="line-115"></span><span class="hs-comment">-- == @\&lt;specifier\&gt;@</span><span>
</span><span id="line-116"></span><span class="hs-comment">--</span><span>
</span><span id="line-117"></span><span class="hs-comment">-- For all types (note these three are done by 'formatTime', not by 'formatCharacter'):</span><span>
</span><span id="line-118"></span><span class="hs-comment">--</span><span>
</span><span id="line-119"></span><span class="hs-comment">-- [@%%@] @%@</span><span>
</span><span id="line-120"></span><span class="hs-comment">--</span><span>
</span><span id="line-121"></span><span class="hs-comment">-- [@%t@] tab</span><span>
</span><span id="line-122"></span><span class="hs-comment">--</span><span>
</span><span id="line-123"></span><span class="hs-comment">-- [@%n@] newline</span><span>
</span><span id="line-124"></span><span class="hs-comment">--</span><span>
</span><span id="line-125"></span><span class="hs-comment">-- === 'TimeZone'</span><span>
</span><span id="line-126"></span><span class="hs-comment">-- For 'TimeZone' (and 'ZonedTime' and 'UTCTime'):</span><span>
</span><span id="line-127"></span><span class="hs-comment">--</span><span>
</span><span id="line-128"></span><span class="hs-comment">-- [@%z@] timezone offset in the format @&#177;HHMM@</span><span>
</span><span id="line-129"></span><span class="hs-comment">--</span><span>
</span><span id="line-130"></span><span class="hs-comment">-- [@%Ez@] timezone offset in the format @&#177;HH:MM@</span><span>
</span><span id="line-131"></span><span class="hs-comment">--</span><span>
</span><span id="line-132"></span><span class="hs-comment">-- [@%Z@] timezone name (or else offset in the format @&#177;HHMM@)</span><span>
</span><span id="line-133"></span><span class="hs-comment">--</span><span>
</span><span id="line-134"></span><span class="hs-comment">-- [@%EZ@] timezone name (or else offset in the format @&#177;HH:MM@)</span><span>
</span><span id="line-135"></span><span class="hs-comment">--</span><span>
</span><span id="line-136"></span><span class="hs-comment">-- === 'LocalTime'</span><span>
</span><span id="line-137"></span><span class="hs-comment">-- For 'LocalTime' (and 'ZonedTime' and 'UTCTime' and 'UniversalTime'):</span><span>
</span><span id="line-138"></span><span class="hs-comment">--</span><span>
</span><span id="line-139"></span><span class="hs-comment">-- [@%c@] as 'dateTimeFmt' @locale@ (e.g. @%a %b %e %H:%M:%S %Z %Y@)</span><span>
</span><span id="line-140"></span><span class="hs-comment">--</span><span>
</span><span id="line-141"></span><span class="hs-comment">-- === 'TimeOfDay'</span><span>
</span><span id="line-142"></span><span class="hs-comment">-- For 'TimeOfDay' (and 'LocalTime' and 'ZonedTime' and 'UTCTime' and 'UniversalTime'):</span><span>
</span><span id="line-143"></span><span class="hs-comment">--</span><span>
</span><span id="line-144"></span><span class="hs-comment">-- [@%R@] same as @%H:%M@</span><span>
</span><span id="line-145"></span><span class="hs-comment">--</span><span>
</span><span id="line-146"></span><span class="hs-comment">-- [@%T@] same as @%H:%M:%S@</span><span>
</span><span id="line-147"></span><span class="hs-comment">--</span><span>
</span><span id="line-148"></span><span class="hs-comment">-- [@%X@] as 'timeFmt' @locale@ (e.g. @%H:%M:%S@)</span><span>
</span><span id="line-149"></span><span class="hs-comment">--</span><span>
</span><span id="line-150"></span><span class="hs-comment">-- [@%r@] as 'time12Fmt' @locale@ (e.g. @%I:%M:%S %p@)</span><span>
</span><span id="line-151"></span><span class="hs-comment">--</span><span>
</span><span id="line-152"></span><span class="hs-comment">-- [@%P@] day-half of day from ('amPm' @locale@), converted to lowercase, @am@, @pm@</span><span>
</span><span id="line-153"></span><span class="hs-comment">--</span><span>
</span><span id="line-154"></span><span class="hs-comment">-- [@%p@] day-half of day from ('amPm' @locale@), @AM@, @PM@</span><span>
</span><span id="line-155"></span><span class="hs-comment">--</span><span>
</span><span id="line-156"></span><span class="hs-comment">-- [@%H@] hour of day (24-hour), 0-padded to two chars, @00@ - @23@</span><span>
</span><span id="line-157"></span><span class="hs-comment">--</span><span>
</span><span id="line-158"></span><span class="hs-comment">-- [@%k@] hour of day (24-hour), space-padded to two chars, @ 0@ - @23@</span><span>
</span><span id="line-159"></span><span class="hs-comment">--</span><span>
</span><span id="line-160"></span><span class="hs-comment">-- [@%I@] hour of day-half (12-hour), 0-padded to two chars, @01@ - @12@</span><span>
</span><span id="line-161"></span><span class="hs-comment">--</span><span>
</span><span id="line-162"></span><span class="hs-comment">-- [@%l@] hour of day-half (12-hour), space-padded to two chars, @ 1@ - @12@</span><span>
</span><span id="line-163"></span><span class="hs-comment">--</span><span>
</span><span id="line-164"></span><span class="hs-comment">-- [@%M@] minute of hour, 0-padded to two chars, @00@ - @59@</span><span>
</span><span id="line-165"></span><span class="hs-comment">--</span><span>
</span><span id="line-166"></span><span class="hs-comment">-- [@%S@] second of minute (without decimal part), 0-padded to two chars, @00@ - @60@</span><span>
</span><span id="line-167"></span><span class="hs-comment">--</span><span>
</span><span id="line-168"></span><span class="hs-comment">-- [@%q@] picosecond of second, 0-padded to twelve chars, @000000000000@ - @999999999999@.</span><span>
</span><span id="line-169"></span><span class="hs-comment">--</span><span>
</span><span id="line-170"></span><span class="hs-comment">-- [@%Q@] decimal point and fraction of second, up to 12 second decimals, without trailing zeros.</span><span>
</span><span id="line-171"></span><span class="hs-comment">-- For a whole number of seconds, @%Q@ omits the decimal point unless padding is specified.</span><span>
</span><span id="line-172"></span><span class="hs-comment">--</span><span>
</span><span id="line-173"></span><span class="hs-comment">-- === 'UTCTime' and 'ZonedTime'</span><span>
</span><span id="line-174"></span><span class="hs-comment">-- For 'UTCTime' and 'ZonedTime':</span><span>
</span><span id="line-175"></span><span class="hs-comment">--</span><span>
</span><span id="line-176"></span><span class="hs-comment">-- [@%s@] number of whole seconds since the Unix epoch. For times before</span><span>
</span><span id="line-177"></span><span class="hs-comment">-- the Unix epoch, this is a negative number. Note that in @%s.%q@ and @%s%Q@</span><span>
</span><span id="line-178"></span><span class="hs-comment">-- the decimals are positive, not negative. For example, 0.9 seconds</span><span>
</span><span id="line-179"></span><span class="hs-comment">-- before the Unix epoch is formatted as @-1.1@ with @%s%Q@.</span><span>
</span><span id="line-180"></span><span class="hs-comment">--</span><span>
</span><span id="line-181"></span><span class="hs-comment">-- === 'DayOfWeek'</span><span>
</span><span id="line-182"></span><span class="hs-comment">-- For 'DayOfWeek' (and 'Day' and 'LocalTime' and 'ZonedTime' and 'UTCTime' and 'UniversalTime'):</span><span>
</span><span id="line-183"></span><span class="hs-comment">--</span><span>
</span><span id="line-184"></span><span class="hs-comment">-- [@%u@] day of week number for Week Date format, @1@ (= Monday) - @7@ (= Sunday)</span><span>
</span><span id="line-185"></span><span class="hs-comment">--</span><span>
</span><span id="line-186"></span><span class="hs-comment">-- [@%w@] day of week number, @0@ (= Sunday) - @6@ (= Saturday)</span><span>
</span><span id="line-187"></span><span class="hs-comment">--</span><span>
</span><span id="line-188"></span><span class="hs-comment">-- [@%a@] day of week, short form ('snd' from 'wDays' @locale@), @Sun@ - @Sat@</span><span>
</span><span id="line-189"></span><span class="hs-comment">--</span><span>
</span><span id="line-190"></span><span class="hs-comment">-- [@%A@] day of week, long form ('fst' from 'wDays' @locale@), @Sunday@ - @Saturday@</span><span>
</span><span id="line-191"></span><span class="hs-comment">--</span><span>
</span><span id="line-192"></span><span class="hs-comment">-- === 'Day'</span><span>
</span><span id="line-193"></span><span class="hs-comment">-- For 'Day' (and 'LocalTime' and 'ZonedTime' and 'UTCTime' and 'UniversalTime'):</span><span>
</span><span id="line-194"></span><span class="hs-comment">--</span><span>
</span><span id="line-195"></span><span class="hs-comment">-- [@%D@] same as @%m\/%d\/%y@</span><span>
</span><span id="line-196"></span><span class="hs-comment">--</span><span>
</span><span id="line-197"></span><span class="hs-comment">-- [@%F@] same as @%Y-%m-%d@</span><span>
</span><span id="line-198"></span><span class="hs-comment">--</span><span>
</span><span id="line-199"></span><span class="hs-comment">-- [@%x@] as 'dateFmt' @locale@ (e.g. @%m\/%d\/%y@)</span><span>
</span><span id="line-200"></span><span class="hs-comment">--</span><span>
</span><span id="line-201"></span><span class="hs-comment">-- [@%Y@] year, no padding. Note @%0Y@ and @%_Y@ pad to four chars</span><span>
</span><span id="line-202"></span><span class="hs-comment">--</span><span>
</span><span id="line-203"></span><span class="hs-comment">-- [@%y@] year of century, 0-padded to two chars, @00@ - @99@</span><span>
</span><span id="line-204"></span><span class="hs-comment">--</span><span>
</span><span id="line-205"></span><span class="hs-comment">-- [@%C@] century, no padding. Note @%0C@ and @%_C@ pad to two chars</span><span>
</span><span id="line-206"></span><span class="hs-comment">--</span><span>
</span><span id="line-207"></span><span class="hs-comment">-- [@%B@] month name, long form ('fst' from 'months' @locale@), @January@ - @December@</span><span>
</span><span id="line-208"></span><span class="hs-comment">--</span><span>
</span><span id="line-209"></span><span class="hs-comment">-- [@%b@, @%h@] month name, short form ('snd' from 'months' @locale@), @Jan@ - @Dec@</span><span>
</span><span id="line-210"></span><span class="hs-comment">--</span><span>
</span><span id="line-211"></span><span class="hs-comment">-- [@%m@] month of year, 0-padded to two chars, @01@ - @12@</span><span>
</span><span id="line-212"></span><span class="hs-comment">--</span><span>
</span><span id="line-213"></span><span class="hs-comment">-- [@%d@] day of month, 0-padded to two chars, @01@ - @31@</span><span>
</span><span id="line-214"></span><span class="hs-comment">--</span><span>
</span><span id="line-215"></span><span class="hs-comment">-- [@%e@] day of month, space-padded to two chars,  @ 1@ - @31@</span><span>
</span><span id="line-216"></span><span class="hs-comment">--</span><span>
</span><span id="line-217"></span><span class="hs-comment">-- [@%j@] day of year, 0-padded to three chars, @001@ - @366@</span><span>
</span><span id="line-218"></span><span class="hs-comment">--</span><span>
</span><span id="line-219"></span><span class="hs-comment">-- [@%f@] century for Week Date format, no padding. Note @%0f@ and @%_f@ pad to two chars</span><span>
</span><span id="line-220"></span><span class="hs-comment">--</span><span>
</span><span id="line-221"></span><span class="hs-comment">-- [@%V@] week of year for Week Date format, 0-padded to two chars, @01@ - @53@</span><span>
</span><span id="line-222"></span><span class="hs-comment">--</span><span>
</span><span id="line-223"></span><span class="hs-comment">-- [@%U@] week of year where weeks start on Sunday (as 'sundayStartWeek'), 0-padded to two chars, @00@ - @53@</span><span>
</span><span id="line-224"></span><span class="hs-comment">--</span><span>
</span><span id="line-225"></span><span class="hs-comment">-- [@%W@] week of year where weeks start on Monday (as 'mondayStartWeek'), 0-padded to two chars, @00@ - @53@</span><span>
</span><span id="line-226"></span><span class="hs-comment">--</span><span>
</span><span id="line-227"></span><span class="hs-comment">-- == Duration types</span><span>
</span><span id="line-228"></span><span class="hs-comment">-- The specifiers for 'DiffTime', 'NominalDiffTime', 'CalendarDiffDays', and 'CalendarDiffTime' are semantically</span><span>
</span><span id="line-229"></span><span class="hs-comment">-- separate from the other types.</span><span>
</span><span id="line-230"></span><span class="hs-comment">-- Specifiers on negative time differences will generally be negative (think 'rem' rather than 'mod').</span><span>
</span><span id="line-231"></span><span class="hs-comment">--</span><span>
</span><span id="line-232"></span><span class="hs-comment">-- === 'NominalDiffTime' and 'DiffTime'</span><span>
</span><span id="line-233"></span><span class="hs-comment">-- Note that a &quot;minute&quot; of 'DiffTime' is simply 60 SI seconds, rather than a minute of civil time.</span><span>
</span><span id="line-234"></span><span class="hs-comment">-- Use 'NominalDiffTime' to work with civil time, ignoring any leap seconds.</span><span>
</span><span id="line-235"></span><span class="hs-comment">--</span><span>
</span><span id="line-236"></span><span class="hs-comment">-- For 'NominalDiffTime' and 'DiffTime':</span><span>
</span><span id="line-237"></span><span class="hs-comment">--</span><span>
</span><span id="line-238"></span><span class="hs-comment">-- [@%w@] total whole weeks</span><span>
</span><span id="line-239"></span><span class="hs-comment">--</span><span>
</span><span id="line-240"></span><span class="hs-comment">-- [@%d@] total whole days</span><span>
</span><span id="line-241"></span><span class="hs-comment">--</span><span>
</span><span id="line-242"></span><span class="hs-comment">-- [@%D@] whole days of week</span><span>
</span><span id="line-243"></span><span class="hs-comment">--</span><span>
</span><span id="line-244"></span><span class="hs-comment">-- [@%h@] total whole hours</span><span>
</span><span id="line-245"></span><span class="hs-comment">--</span><span>
</span><span id="line-246"></span><span class="hs-comment">-- [@%H@] whole hours of day</span><span>
</span><span id="line-247"></span><span class="hs-comment">--</span><span>
</span><span id="line-248"></span><span class="hs-comment">-- [@%m@] total whole minutes</span><span>
</span><span id="line-249"></span><span class="hs-comment">--</span><span>
</span><span id="line-250"></span><span class="hs-comment">-- [@%M@] whole minutes of hour</span><span>
</span><span id="line-251"></span><span class="hs-comment">--</span><span>
</span><span id="line-252"></span><span class="hs-comment">-- [@%s@] total whole seconds</span><span>
</span><span id="line-253"></span><span class="hs-comment">--</span><span>
</span><span id="line-254"></span><span class="hs-comment">-- [@%Es@] total seconds, with decimal point and up to \&lt;width\&gt; (default 12) decimal places, without trailing zeros.</span><span>
</span><span id="line-255"></span><span class="hs-comment">-- For a whole number of seconds, @%Es@ omits the decimal point unless padding is specified.</span><span>
</span><span id="line-256"></span><span class="hs-comment">--</span><span>
</span><span id="line-257"></span><span class="hs-comment">-- [@%0Es@] total seconds, with decimal point and \&lt;width\&gt; (default 12) decimal places.</span><span>
</span><span id="line-258"></span><span class="hs-comment">--</span><span>
</span><span id="line-259"></span><span class="hs-comment">-- [@%S@] whole seconds of minute</span><span>
</span><span id="line-260"></span><span class="hs-comment">--</span><span>
</span><span id="line-261"></span><span class="hs-comment">-- [@%ES@] seconds of minute, with decimal point and up to \&lt;width\&gt; (default 12) decimal places, without trailing zeros.</span><span>
</span><span id="line-262"></span><span class="hs-comment">-- For a whole number of seconds, @%ES@ omits the decimal point unless padding is specified.</span><span>
</span><span id="line-263"></span><span class="hs-comment">--</span><span>
</span><span id="line-264"></span><span class="hs-comment">-- [@%0ES@] seconds of minute as two digits, with decimal point and \&lt;width\&gt; (default 12) decimal places.</span><span>
</span><span id="line-265"></span><span class="hs-comment">--</span><span>
</span><span id="line-266"></span><span class="hs-comment">-- === 'CalendarDiffDays'</span><span>
</span><span id="line-267"></span><span class="hs-comment">-- For 'CalendarDiffDays' (and 'CalendarDiffTime'):</span><span>
</span><span id="line-268"></span><span class="hs-comment">--</span><span>
</span><span id="line-269"></span><span class="hs-comment">-- [@%y@] total years</span><span>
</span><span id="line-270"></span><span class="hs-comment">--</span><span>
</span><span id="line-271"></span><span class="hs-comment">-- [@%b@] total months</span><span>
</span><span id="line-272"></span><span class="hs-comment">--</span><span>
</span><span id="line-273"></span><span class="hs-comment">-- [@%B@] months of year</span><span>
</span><span id="line-274"></span><span class="hs-comment">--</span><span>
</span><span id="line-275"></span><span class="hs-comment">-- [@%w@] total weeks, not including months</span><span>
</span><span id="line-276"></span><span class="hs-comment">--</span><span>
</span><span id="line-277"></span><span class="hs-comment">-- [@%d@] total days, not including months</span><span>
</span><span id="line-278"></span><span class="hs-comment">--</span><span>
</span><span id="line-279"></span><span class="hs-comment">-- [@%D@] days of week</span><span>
</span><span id="line-280"></span><span class="hs-comment">--</span><span>
</span><span id="line-281"></span><span class="hs-comment">-- === 'CalendarDiffTime'</span><span>
</span><span id="line-282"></span><span class="hs-comment">-- For 'CalendarDiffTime':</span><span>
</span><span id="line-283"></span><span class="hs-comment">--</span><span>
</span><span id="line-284"></span><span class="hs-comment">-- [@%h@] total hours, not including months</span><span>
</span><span id="line-285"></span><span class="hs-comment">--</span><span>
</span><span id="line-286"></span><span class="hs-comment">-- [@%H@] hours of day</span><span>
</span><span id="line-287"></span><span class="hs-comment">--</span><span>
</span><span id="line-288"></span><span class="hs-comment">-- [@%m@] total minutes, not including months</span><span>
</span><span id="line-289"></span><span class="hs-comment">--</span><span>
</span><span id="line-290"></span><span class="hs-comment">-- [@%M@] minutes of hour</span><span>
</span><span id="line-291"></span><span class="hs-comment">--</span><span>
</span><span id="line-292"></span><span class="hs-comment">-- [@%s@] total whole seconds, not including months</span><span>
</span><span id="line-293"></span><span class="hs-comment">--</span><span>
</span><span id="line-294"></span><span class="hs-comment">-- [@%Es@] total seconds, not including months, with decimal point and up to \&lt;width\&gt; (default 12) decimal places, without trailing zeros.</span><span>
</span><span id="line-295"></span><span class="hs-comment">-- For a whole number of seconds, @%Es@ omits the decimal point unless padding is specified.</span><span>
</span><span id="line-296"></span><span class="hs-comment">--</span><span>
</span><span id="line-297"></span><span class="hs-comment">-- [@%0Es@] total seconds, not including months, with decimal point and \&lt;width\&gt; (default 12) decimal places.</span><span>
</span><span id="line-298"></span><span class="hs-comment">--</span><span>
</span><span id="line-299"></span><span class="hs-comment">-- [@%S@] whole seconds of minute</span><span>
</span><span id="line-300"></span><span class="hs-comment">--</span><span>
</span><span id="line-301"></span><span class="hs-comment">-- [@%ES@] seconds of minute, with decimal point and up to \&lt;width\&gt; (default 12) decimal places, without trailing zeros.</span><span>
</span><span id="line-302"></span><span class="hs-comment">-- For a whole number of seconds, @%ES@ omits the decimal point unless padding is specified.</span><span>
</span><span id="line-303"></span><span class="hs-comment">--</span><span>
</span><span id="line-304"></span><span class="hs-comment">-- [@%0ES@] seconds of minute as two digits, with decimal point and \&lt;width\&gt; (default 12) decimal places.</span><span>
</span><span id="line-305"></span><span id="local-6989586621679072750"><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatTime"><span class="hs-identifier hs-type">formatTime</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679072750"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html#TimeLocale"><span class="hs-identifier hs-type">TimeLocale</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679072750"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span></span><span>
</span><span id="line-306"></span><span id="formatTime"><span class="annot"><span class="annottext">formatTime :: forall t. FormatTime t =&gt; TimeLocale -&gt; String -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatTime"><span class="hs-identifier hs-var hs-var">formatTime</span></a></span></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">t
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;&quot;</span></span><span>
</span><span id="line-307"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatTime"><span class="hs-identifier hs-var">formatTime</span></a></span><span> </span><span id="local-6989586621679072617"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072617"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'%'</span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072616"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072616"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679072615"><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072615"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">TimeLocale -&gt; String -&gt; t -&gt; Maybe String
forall t. FormatTime t =&gt; TimeLocale -&gt; String -&gt; t -&gt; Maybe String
</span><a href="Data.Time.Format.Format.Class.html#formatTime1"><span class="hs-identifier hs-var">formatTime1</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072617"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072616"><span class="hs-identifier hs-var">cs</span></a></span><span> </span><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072615"><span class="hs-identifier hs-var">t</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-308"></span><span>    </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679072613"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072613"><span class="hs-identifier hs-var">result</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072613"><span class="hs-identifier hs-var">result</span></a></span><span>
</span><span id="line-309"></span><span>    </span><span class="annot"><span class="annottext">Maybe String
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'%'</span></span><span class="annot"><span class="annottext">Char -&gt; String -&gt; String
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; String -&gt; t -&gt; String
forall t. FormatTime t =&gt; TimeLocale -&gt; String -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatTime"><span class="hs-identifier hs-var">formatTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072617"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072616"><span class="hs-identifier hs-var">cs</span></a></span><span> </span><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072615"><span class="hs-identifier hs-var">t</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-310"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatTime"><span class="hs-identifier hs-var">formatTime</span></a></span><span> </span><span id="local-6989586621679072612"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072612"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679072611"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072611"><span class="hs-identifier hs-var">c</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072610"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072610"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679072609"><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072609"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072611"><span class="hs-identifier hs-var">c</span></a></span><span class="annot"><span class="annottext">Char -&gt; String -&gt; String
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; String -&gt; t -&gt; String
forall t. FormatTime t =&gt; TimeLocale -&gt; String -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatTime"><span class="hs-identifier hs-var">formatTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072612"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072610"><span class="hs-identifier hs-var">cs</span></a></span><span> </span><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072609"><span class="hs-identifier hs-var">t</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-311"></span><span>
</span><span id="line-312"></span><span id="local-6989586621679072747"><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatTime1"><span class="hs-identifier hs-type">formatTime1</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679072747"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html#TimeLocale"><span class="hs-identifier hs-type">TimeLocale</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679072747"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span></span><span>
</span><span id="line-313"></span><span id="formatTime1"><span class="annot"><span class="annottext">formatTime1 :: forall t. FormatTime t =&gt; TimeLocale -&gt; String -&gt; t -&gt; Maybe String
</span><a href="Data.Time.Format.Format.Class.html#formatTime1"><span class="hs-identifier hs-var hs-var">formatTime1</span></a></span></span><span> </span><span id="local-6989586621679072598"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072598"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'_'</span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072597"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072597"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679072596"><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072596"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale
-&gt; (String -&gt; String)
-&gt; Maybe FormatNumericPadding
-&gt; String
-&gt; t
-&gt; Maybe String
forall t.
FormatTime t =&gt;
TimeLocale
-&gt; (String -&gt; String)
-&gt; Maybe FormatNumericPadding
-&gt; String
-&gt; t
-&gt; Maybe String
</span><a href="Data.Time.Format.Format.Class.html#formatTime2"><span class="hs-identifier hs-var">formatTime2</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072598"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; String
forall a. a -&gt; a
</span><a href="../../base/src/GHC.Base.html#id"><span class="hs-identifier hs-var">id</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FormatNumericPadding -&gt; Maybe FormatNumericPadding
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; FormatNumericPadding
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">' '</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072597"><span class="hs-identifier hs-var">cs</span></a></span><span> </span><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072596"><span class="hs-identifier hs-var">t</span></a></span><span>
</span><span id="line-314"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatTime1"><span class="hs-identifier hs-var">formatTime1</span></a></span><span> </span><span id="local-6989586621679072593"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072593"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'-'</span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072592"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072592"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679072591"><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072591"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale
-&gt; (String -&gt; String)
-&gt; Maybe FormatNumericPadding
-&gt; String
-&gt; t
-&gt; Maybe String
forall t.
FormatTime t =&gt;
TimeLocale
-&gt; (String -&gt; String)
-&gt; Maybe FormatNumericPadding
-&gt; String
-&gt; t
-&gt; Maybe String
</span><a href="Data.Time.Format.Format.Class.html#formatTime2"><span class="hs-identifier hs-var">formatTime2</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072593"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; String
forall a. a -&gt; a
</span><a href="../../base/src/GHC.Base.html#id"><span class="hs-identifier hs-var">id</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FormatNumericPadding -&gt; Maybe FormatNumericPadding
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">FormatNumericPadding
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072592"><span class="hs-identifier hs-var">cs</span></a></span><span> </span><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072591"><span class="hs-identifier hs-var">t</span></a></span><span>
</span><span id="line-315"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatTime1"><span class="hs-identifier hs-var">formatTime1</span></a></span><span> </span><span id="local-6989586621679072590"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072590"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072589"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072589"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679072588"><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072588"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale
-&gt; (String -&gt; String)
-&gt; Maybe FormatNumericPadding
-&gt; String
-&gt; t
-&gt; Maybe String
forall t.
FormatTime t =&gt;
TimeLocale
-&gt; (String -&gt; String)
-&gt; Maybe FormatNumericPadding
-&gt; String
-&gt; t
-&gt; Maybe String
</span><a href="Data.Time.Format.Format.Class.html#formatTime2"><span class="hs-identifier hs-var">formatTime2</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072590"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; String
forall a. a -&gt; a
</span><a href="../../base/src/GHC.Base.html#id"><span class="hs-identifier hs-var">id</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FormatNumericPadding -&gt; Maybe FormatNumericPadding
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; FormatNumericPadding
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072589"><span class="hs-identifier hs-var">cs</span></a></span><span> </span><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072588"><span class="hs-identifier hs-var">t</span></a></span><span>
</span><span id="line-316"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatTime1"><span class="hs-identifier hs-var">formatTime1</span></a></span><span> </span><span id="local-6989586621679072587"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072587"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'^'</span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072586"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072586"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679072585"><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072585"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale
-&gt; (String -&gt; String)
-&gt; Maybe FormatNumericPadding
-&gt; String
-&gt; t
-&gt; Maybe String
forall t.
FormatTime t =&gt;
TimeLocale
-&gt; (String -&gt; String)
-&gt; Maybe FormatNumericPadding
-&gt; String
-&gt; t
-&gt; Maybe String
</span><a href="Data.Time.Format.Format.Class.html#formatTime2"><span class="hs-identifier hs-var">formatTime2</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072587"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Char -&gt; Char) -&gt; String -&gt; String
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char
</span><a href="../../base/src/GHC.Unicode.html#toUpper"><span class="hs-identifier hs-var">toUpper</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Maybe FormatNumericPadding
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072586"><span class="hs-identifier hs-var">cs</span></a></span><span> </span><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072585"><span class="hs-identifier hs-var">t</span></a></span><span>
</span><span id="line-317"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatTime1"><span class="hs-identifier hs-var">formatTime1</span></a></span><span> </span><span id="local-6989586621679072583"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072583"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'#'</span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072582"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072582"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679072581"><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072581"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale
-&gt; (String -&gt; String)
-&gt; Maybe FormatNumericPadding
-&gt; String
-&gt; t
-&gt; Maybe String
forall t.
FormatTime t =&gt;
TimeLocale
-&gt; (String -&gt; String)
-&gt; Maybe FormatNumericPadding
-&gt; String
-&gt; t
-&gt; Maybe String
</span><a href="Data.Time.Format.Format.Class.html#formatTime2"><span class="hs-identifier hs-var">formatTime2</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072583"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Char -&gt; Char) -&gt; String -&gt; String
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char
</span><a href="../../base/src/GHC.Unicode.html#toLower"><span class="hs-identifier hs-var">toLower</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Maybe FormatNumericPadding
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072582"><span class="hs-identifier hs-var">cs</span></a></span><span> </span><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072581"><span class="hs-identifier hs-var">t</span></a></span><span>
</span><span id="line-318"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatTime1"><span class="hs-identifier hs-var">formatTime1</span></a></span><span> </span><span id="local-6989586621679072579"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072579"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span id="local-6989586621679072578"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072578"><span class="hs-identifier hs-var">cs</span></a></span></span><span> </span><span id="local-6989586621679072577"><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072577"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeLocale
-&gt; (String -&gt; String)
-&gt; Maybe FormatNumericPadding
-&gt; String
-&gt; t
-&gt; Maybe String
forall t.
FormatTime t =&gt;
TimeLocale
-&gt; (String -&gt; String)
-&gt; Maybe FormatNumericPadding
-&gt; String
-&gt; t
-&gt; Maybe String
</span><a href="Data.Time.Format.Format.Class.html#formatTime2"><span class="hs-identifier hs-var">formatTime2</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072579"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; String
forall a. a -&gt; a
</span><a href="../../base/src/GHC.Base.html#id"><span class="hs-identifier hs-var">id</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe FormatNumericPadding
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072578"><span class="hs-identifier hs-var">cs</span></a></span><span> </span><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072577"><span class="hs-identifier hs-var">t</span></a></span><span>
</span><span id="line-319"></span><span>
</span><span id="line-320"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#getDigit"><span class="hs-identifier hs-type">getDigit</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-321"></span><span id="getDigit"><span class="annot"><span class="annottext">getDigit :: Char -&gt; Maybe Int
</span><a href="Data.Time.Format.Format.Class.html#getDigit"><span class="hs-identifier hs-var hs-var">getDigit</span></a></span></span><span> </span><span id="local-6989586621679072575"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072575"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072575"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&lt;</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-322"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#getDigit"><span class="hs-identifier hs-var">getDigit</span></a></span><span> </span><span id="local-6989586621679072574"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072574"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072574"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'9'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-323"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#getDigit"><span class="hs-identifier hs-var">getDigit</span></a></span><span> </span><span id="local-6989586621679072572"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072572"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">(Int -&gt; Maybe Int) -&gt; Int -&gt; Maybe Int
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Int
</span><a href="../../base/src/GHC.Base.html#ord"><span class="hs-identifier hs-var">ord</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072572"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#-"><span class="hs-glyph hs-var">-</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Int
</span><a href="../../base/src/GHC.Base.html#ord"><span class="hs-identifier hs-var">ord</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'0'</span></span><span class="hs-special">)</span><span>
</span><span id="line-324"></span><span>
</span><span id="line-325"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#pullNumber"><span class="hs-identifier hs-type">pullNumber</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-326"></span><span id="pullNumber"><span class="annot"><span class="annottext">pullNumber :: Maybe Int -&gt; String -&gt; (Maybe Int, String)
</span><a href="Data.Time.Format.Format.Class.html#pullNumber"><span class="hs-identifier hs-var hs-var">pullNumber</span></a></span></span><span> </span><span id="local-6989586621679072569"><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679072569"><span class="hs-identifier hs-var">mx</span></a></span></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679072569"><span class="hs-identifier hs-var">mx</span></a></span><span class="hs-special">,</span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><span id="line-327"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#pullNumber"><span class="hs-identifier hs-var">pullNumber</span></a></span><span> </span><span id="local-6989586621679072568"><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679072568"><span class="hs-identifier hs-var">mx</span></a></span></span><span> </span><span id="local-6989586621679072567"><span class="annot"><span class="annottext">s :: String
</span><a href="#local-6989586621679072567"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-glyph">@</span><span class="hs-special">(</span><span id="local-6989586621679072566"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072566"><span class="hs-identifier hs-var">c</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072565"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072565"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Maybe Int
</span><a href="Data.Time.Format.Format.Class.html#getDigit"><span class="hs-identifier hs-var">getDigit</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072566"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-328"></span><span>    </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679072564"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072564"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Maybe Int -&gt; String -&gt; (Maybe Int, String)
</span><a href="Data.Time.Format.Format.Class.html#pullNumber"><span class="hs-identifier hs-var">pullNumber</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">(Int -&gt; Maybe Int) -&gt; Int -&gt; Maybe Int
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int -&gt; Int
forall a. a -&gt; Maybe a -&gt; a
</span><a href="../../base/src/Data.Maybe.html#fromMaybe"><span class="hs-identifier hs-var">fromMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679072568"><span class="hs-identifier hs-var">mx</span></a></span><span class="hs-special">)</span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">10</span></span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679072564"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072565"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-329"></span><span>    </span><span class="annot"><span class="annottext">Maybe Int
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679072568"><span class="hs-identifier hs-var">mx</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072567"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-330"></span><span>
</span><span id="line-331"></span><span id="local-6989586621679072745"><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatTime2"><span class="hs-identifier hs-type">formatTime2</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679072745"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html#TimeLocale"><span class="hs-identifier hs-type">TimeLocale</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatNumericPadding"><span class="hs-identifier hs-type">FormatNumericPadding</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679072745"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span></span><span>
</span><span id="line-332"></span><span id="formatTime2"><span class="annot"><span class="annottext">formatTime2 :: forall t.
FormatTime t =&gt;
TimeLocale
-&gt; (String -&gt; String)
-&gt; Maybe FormatNumericPadding
-&gt; String
-&gt; t
-&gt; Maybe String
</span><a href="Data.Time.Format.Format.Class.html#formatTime2"><span class="hs-identifier hs-var hs-var">formatTime2</span></a></span></span><span> </span><span id="local-6989586621679072558"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072558"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span id="local-6989586621679072557"><span class="annot"><span class="annottext">String -&gt; String
</span><a href="#local-6989586621679072557"><span class="hs-identifier hs-var">recase</span></a></span></span><span> </span><span id="local-6989586621679072556"><span class="annot"><span class="annottext">Maybe FormatNumericPadding
</span><a href="#local-6989586621679072556"><span class="hs-identifier hs-var">mpad</span></a></span></span><span> </span><span id="local-6989586621679072555"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072555"><span class="hs-identifier hs-var">cs</span></a></span></span><span> </span><span id="local-6989586621679072554"><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072554"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-333"></span><span>    </span><span class="hs-special">(</span><span id="local-6989586621679072553"><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679072553"><span class="hs-identifier hs-var">mwidth</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679072552"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072552"><span class="hs-identifier hs-var">rest</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe Int -&gt; String -&gt; (Maybe Int, String)
</span><a href="Data.Time.Format.Format.Class.html#pullNumber"><span class="hs-identifier hs-var">pullNumber</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072555"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-334"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">TimeLocale
-&gt; (String -&gt; String)
-&gt; Maybe FormatNumericPadding
-&gt; Maybe Int
-&gt; String
-&gt; t
-&gt; Maybe String
forall t.
FormatTime t =&gt;
TimeLocale
-&gt; (String -&gt; String)
-&gt; Maybe FormatNumericPadding
-&gt; Maybe Int
-&gt; String
-&gt; t
-&gt; Maybe String
</span><a href="Data.Time.Format.Format.Class.html#formatTime3"><span class="hs-identifier hs-var">formatTime3</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072558"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; String
</span><a href="#local-6989586621679072557"><span class="hs-identifier hs-var">recase</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe FormatNumericPadding
</span><a href="#local-6989586621679072556"><span class="hs-identifier hs-var">mpad</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679072553"><span class="hs-identifier hs-var">mwidth</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072552"><span class="hs-identifier hs-var">rest</span></a></span><span> </span><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072554"><span class="hs-identifier hs-var">t</span></a></span><span>
</span><span id="line-335"></span><span>
</span><span id="line-336"></span><span id="local-6989586621679072738"><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatTime3"><span class="hs-identifier hs-type">formatTime3</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679072738"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="Data.Time.Format.Locale.html#TimeLocale"><span class="hs-identifier hs-type">TimeLocale</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatNumericPadding"><span class="hs-identifier hs-type">FormatNumericPadding</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679072738"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span></span><span>
</span><span id="line-337"></span><span id="formatTime3"><span class="annot"><span class="annottext">formatTime3 :: forall t.
FormatTime t =&gt;
TimeLocale
-&gt; (String -&gt; String)
-&gt; Maybe FormatNumericPadding
-&gt; Maybe Int
-&gt; String
-&gt; t
-&gt; Maybe String
</span><a href="Data.Time.Format.Format.Class.html#formatTime3"><span class="hs-identifier hs-var hs-var">formatTime3</span></a></span></span><span> </span><span id="local-6989586621679072547"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072547"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span id="local-6989586621679072546"><span class="annot"><span class="annottext">String -&gt; String
</span><a href="#local-6989586621679072546"><span class="hs-identifier hs-var">recase</span></a></span></span><span> </span><span id="local-6989586621679072545"><span class="annot"><span class="annottext">Maybe FormatNumericPadding
</span><a href="#local-6989586621679072545"><span class="hs-identifier hs-var">mpad</span></a></span></span><span> </span><span id="local-6989586621679072544"><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679072544"><span class="hs-identifier hs-var">mwidth</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'E'</span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072543"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072543"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; (String -&gt; String)
-&gt; FormatOptions
-&gt; String
-&gt; t
-&gt; Maybe String
forall t.
FormatTime t =&gt;
Bool
-&gt; (String -&gt; String)
-&gt; FormatOptions
-&gt; String
-&gt; t
-&gt; Maybe String
</span><a href="Data.Time.Format.Format.Class.html#formatTime4"><span class="hs-identifier hs-var">formatTime4</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span> </span><span class="annot"><span class="annottext">String -&gt; String
</span><a href="#local-6989586621679072546"><span class="hs-identifier hs-var">recase</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale
-&gt; Maybe FormatNumericPadding -&gt; Maybe Int -&gt; FormatOptions
</span><a href="Data.Time.Format.Format.Class.html#MkFormatOptions"><span class="hs-identifier hs-var">MkFormatOptions</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072547"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe FormatNumericPadding
</span><a href="#local-6989586621679072545"><span class="hs-identifier hs-var">mpad</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679072544"><span class="hs-identifier hs-var">mwidth</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072543"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-338"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatTime3"><span class="hs-identifier hs-var">formatTime3</span></a></span><span> </span><span id="local-6989586621679072541"><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072541"><span class="hs-identifier hs-var">locale</span></a></span></span><span> </span><span id="local-6989586621679072540"><span class="annot"><span class="annottext">String -&gt; String
</span><a href="#local-6989586621679072540"><span class="hs-identifier hs-var">recase</span></a></span></span><span> </span><span id="local-6989586621679072539"><span class="annot"><span class="annottext">Maybe FormatNumericPadding
</span><a href="#local-6989586621679072539"><span class="hs-identifier hs-var">mpad</span></a></span></span><span> </span><span id="local-6989586621679072538"><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679072538"><span class="hs-identifier hs-var">mwidth</span></a></span></span><span> </span><span id="local-6989586621679072537"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072537"><span class="hs-identifier hs-var">cs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
-&gt; (String -&gt; String)
-&gt; FormatOptions
-&gt; String
-&gt; t
-&gt; Maybe String
forall t.
FormatTime t =&gt;
Bool
-&gt; (String -&gt; String)
-&gt; FormatOptions
-&gt; String
-&gt; t
-&gt; Maybe String
</span><a href="Data.Time.Format.Format.Class.html#formatTime4"><span class="hs-identifier hs-var">formatTime4</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span> </span><span class="annot"><span class="annottext">String -&gt; String
</span><a href="#local-6989586621679072540"><span class="hs-identifier hs-var">recase</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale
-&gt; Maybe FormatNumericPadding -&gt; Maybe Int -&gt; FormatOptions
</span><a href="Data.Time.Format.Format.Class.html#MkFormatOptions"><span class="hs-identifier hs-var">MkFormatOptions</span></a></span><span> </span><span class="annot"><span class="annottext">TimeLocale
</span><a href="#local-6989586621679072541"><span class="hs-identifier hs-var">locale</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe FormatNumericPadding
</span><a href="#local-6989586621679072539"><span class="hs-identifier hs-var">mpad</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679072538"><span class="hs-identifier hs-var">mwidth</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072537"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-339"></span><span>
</span><span id="line-340"></span><span id="local-6989586621679072736"><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatTime4"><span class="hs-identifier hs-type">formatTime4</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679072736"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatOptions"><span class="hs-identifier hs-type">FormatOptions</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679072736"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span></span><span>
</span><span id="line-341"></span><span id="formatTime4"><span class="annot"><span class="annottext">formatTime4 :: forall t.
FormatTime t =&gt;
Bool
-&gt; (String -&gt; String)
-&gt; FormatOptions
-&gt; String
-&gt; t
-&gt; Maybe String
</span><a href="Data.Time.Format.Format.Class.html#formatTime4"><span class="hs-identifier hs-var hs-var">formatTime4</span></a></span></span><span> </span><span id="local-6989586621679072533"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679072533"><span class="hs-identifier hs-var">alt</span></a></span></span><span> </span><span id="local-6989586621679072532"><span class="annot"><span class="annottext">String -&gt; String
</span><a href="#local-6989586621679072532"><span class="hs-identifier hs-var">recase</span></a></span></span><span> </span><span id="local-6989586621679072531"><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679072531"><span class="hs-identifier hs-var">fo</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679072530"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072530"><span class="hs-identifier hs-var">c</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679072529"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072529"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679072528"><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072528"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Maybe String
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; Maybe String) -&gt; String -&gt; Maybe String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -&gt; String
</span><a href="#local-6989586621679072532"><span class="hs-identifier hs-var">recase</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Bool -&gt; Char -&gt; FormatOptions -&gt; t -&gt; String
forall t.
FormatTime t =&gt;
Bool -&gt; Char -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatChar"><span class="hs-identifier hs-var">formatChar</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679072533"><span class="hs-identifier hs-var">alt</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072530"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679072531"><span class="hs-identifier hs-var">fo</span></a></span><span> </span><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072528"><span class="hs-identifier hs-var">t</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeLocale -&gt; String -&gt; t -&gt; String
forall t. FormatTime t =&gt; TimeLocale -&gt; String -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatTime"><span class="hs-identifier hs-var">formatTime</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FormatOptions -&gt; TimeLocale
</span><a href="Data.Time.Format.Format.Class.html#foLocale"><span class="hs-identifier hs-var hs-var">foLocale</span></a></span><span> </span><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679072531"><span class="hs-identifier hs-var">fo</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679072529"><span class="hs-identifier hs-var">cs</span></a></span><span> </span><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072528"><span class="hs-identifier hs-var">t</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-342"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatTime4"><span class="hs-identifier hs-var">formatTime4</span></a></span><span> </span><span id="local-6989586621679072526"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679072526"><span class="hs-identifier hs-var">_alt</span></a></span></span><span> </span><span id="local-6989586621679072525"><span class="annot"><span class="annottext">String -&gt; String
</span><a href="#local-6989586621679072525"><span class="hs-identifier hs-var">_recase</span></a></span></span><span> </span><span id="local-6989586621679072524"><span class="annot"><span class="annottext">FormatOptions
</span><a href="#local-6989586621679072524"><span class="hs-identifier hs-var">_fo</span></a></span></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span id="local-6989586621679072523"><span class="annot"><span class="annottext">t
</span><a href="#local-6989586621679072523"><span class="hs-identifier hs-var">_t</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe String
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-343"></span><span>
</span><span id="line-344"></span><span id="local-6989586621679072734"><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatChar"><span class="hs-identifier hs-type">formatChar</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatTime"><span class="hs-identifier hs-type">FormatTime</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679072734"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.Format.Format.Class.html#FormatOptions"><span class="hs-identifier hs-type">FormatOptions</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679072734"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span></span><span>
</span><span id="line-345"></span><span id="formatChar"><span class="annot"><span class="annottext">formatChar :: forall t.
FormatTime t =&gt;
Bool -&gt; Char -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatChar"><span class="hs-identifier hs-var hs-var">formatChar</span></a></span></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'%'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String)
-&gt; (TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">t
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;%&quot;</span></span><span>
</span><span id="line-346"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatChar"><span class="hs-identifier hs-var">formatChar</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'t'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String)
-&gt; (TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">t
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\t&quot;</span></span><span>
</span><span id="line-347"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatChar"><span class="hs-identifier hs-var">formatChar</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'n'</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
forall t.
(TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
</span><a href="Data.Time.Format.Format.Class.html#formatString"><span class="hs-identifier hs-var">formatString</span></a></span><span> </span><span class="annot"><span class="annottext">((TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String)
-&gt; (TimeLocale -&gt; t -&gt; String) -&gt; FormatOptions -&gt; t -&gt; String
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">TimeLocale
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">t
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\n&quot;</span></span><span>
</span><span id="line-348"></span><span class="annot"><a href="Data.Time.Format.Format.Class.html#formatChar"><span class="hs-identifier hs-var">formatChar</span></a></span><span> </span><span id="local-6989586621679072520"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679072520"><span class="hs-identifier hs-var">alt</span></a></span></span><span> </span><span id="local-6989586621679072519"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072519"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; t -&gt; String)
forall t.
FormatTime t =&gt;
Bool -&gt; Char -&gt; Maybe (FormatOptions -&gt; t -&gt; String)
</span><a href="Data.Time.Format.Format.Class.html#formatCharacter"><span class="hs-identifier hs-var">formatCharacter</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679072520"><span class="hs-identifier hs-var">alt</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679072519"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-349"></span><span>    </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679072518"><span class="annot"><span class="annottext">FormatOptions -&gt; t -&gt; String
</span><a href="#local-6989586621679072518"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">FormatOptions -&gt; t -&gt; String
</span><a href="#local-6989586621679072518"><span class="hs-identifier hs-var">f</span></a></span><span>
</span><span id="line-350"></span><span>    </span><span class="annot"><span class="annottext">Maybe (FormatOptions -&gt; t -&gt; String)
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">FormatOptions
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">t
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;&quot;</span></span><span>
</span><span id="line-351"></span></pre></body></html>